:ClrHome
:Lbl A
:Menu("ANNUAIRE PERSO","FAMILLE",1,"TRAVAIL",2,"AMIS",3,"FIN",4)
:Lbl 1
:ClrHome
:Output(1,1,"PAPA :")
:Output(2,1,"12 34 56 78 90")
:Output(3,1,"MAMAN :")
:Output(4,1,"22 22 22 22 22 ")
:Output(5,1,"TANTE YVETTE :")
:Output(6,1,"67 67 67 67 67")
:Pause
:Goto A
:Lbl 2
:ClrHome
:Output(1,1,"PATRON :")
:Output(2,1,"33 33 33 33 33")
:Output(3,1,"SECRETAIRE")
:Output(4,1,"11 11 11 11 11")
:Output(5,1,"CONCIERGE :")
:Output(6,1,"78 90 34 56 32")
:Pause
:Goto A
:Lbl 3
:ClrHome
:Output(1,1,"PIERRE :")
:Output(2,1,"78 78 78 78 78")
:Output(3,1,"LUCIE :")
:Output(4,1,"32 45 34 56 7")
:Output(5,1,"MARINE :")
:Output(6,1,"90 80 70 60 40")
:Output(7,1,"JULIETTE :")
:Output(8,1,"11 11 11 11 11")
:Pause
:ClrHome
:Output(1,1,"JIMMY :")
:Output(2,1,"1 3 5 12 56 27")
:Output(3,1,"LOIC :")
:Output(4,1,"22 22 33 44 55")
:Output(5,1,"PASCAL :")
:Output(6,1,"06 67 89 32 12")
:Output(7,1,"SYLVAIN :")
:Output(8,1,"03 67 89 12 45")
:Pause
:ClrHome
:Output(1,1,"ARTHUR :")
:Output(2,1,"08 56 78 45 11")
:Output(3,1,"SANDRINE :")
:Output(4,1,"04 67 89 23 45")
:Output(5,1,"VERONIQUE")
:Output(6,1,"45 67 89 10 23")
:Pause
:Goto A
:Lbl 4
:ClrHome
:Stop
